home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 10
/
010.d81
/
box puzzles
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
6KB
|
165 lines
1 gosub60000
10 rem ***********************
15 rem * *
20 rem * box puzzles *
25 rem * *
30 rem * by sandy smith *
35 rem * *
40 rem * 18 september 1983 *
45 rem * *
50 rem * a revision of *
55 rem * 'from games' in *
60 rem * softdisk magazette *
65 rem * *
66 rem * translated for the *
67 rem * commodore 64 *
68 rem * by donna k. woody *
69 rem * *
70 rem ***********************
80 poke53280,1:poke53281,0:print"[158]":poke53272,23:printchr$(8)
81 poke783,peek(783)and254:s=65520
82 v$=" "
90 goto210
99 :
100 rem *** subroutines
101 :
110 h=20-len(a$)/2:poke781,v:poke782,h:syss:printa$:return
120 poke781,23:poke782,5:syss:print"[208]ress <[211][208][193][195][197] [194][193][210]> to continue";
121 poke198,0:wait198,1:geta$:return
130 print"[147]":a$="[208][213][218][218][204][197][211] [194][217] [212][200][197] [194][207][216][198][213][204]":v=1:gosub110:print:print:return
140 print" ";:forj=1to21:print"-";:nextj:print:forj=1to10:printtab(9);"!";tab(29);"!"
141 next:print" ";:forj=1to21:print"-";:nextj:print:return
199 :
200 rem *** intro
201 :
210 print"[147]":gosub140:print"[208][213][218][218][204][197][211] [194][217] [212][200][197]"
211 print"[194][207][216][198][213][204]..."
220 print"[196]umped together":print"by"
221 print"[211]andy [211]mith"
222 print"[212]ranslated for the [195]ommodore"
223 print"by [196]onna [203]. [215]oody":gosub120
230 print"[147]":v=1:a$="[212]he puzzles came":gosub110
231 v=v+1:a$="from page 165 of the":gosub110
232 v=v+1:a$="1983 edition of":gosub110
233 v=v+1:a$="the [207]ld [198]armer's [193]lmanac.":gosub110
240 v=v+1:a$="[212]hey were written by":gosub110
241 v=v+1:a$="[212]homas [197]. [207]etzel.":gosub110
250 poke781,14:poke782,3:syss:print"[193]ll you need to do is figure out":print
251 print" what the information in each box":print
252 print" says. [199]ood luck!":gosub120
299 :
300 rem *** instructions
301 :
310 gosub130:a$="-- [206][207][212][197] --":v=3:gosub110
320 print"[198]ormulate your answers in your head,"
330 print"then press the ";chr$(34);"[193]";chr$(34);" key for the answer."
350 print"[206]ext, you will be asked if you got it"
360 print"correct. [194]e honest."
370 print" [212]ype in an ";chr$(34);"[211]";chr$(34);" if you wish to skip a"
371 print"puzzle or press ";chr$(34);"[209]";chr$(34);" to quit before the"
380 print"quiz is over.":gosub120
999 :
1000 rem *** initialization
1010 nq=21:diman$(nq)
1015 fori=1tonq:readan$(i)
1016 an$(i)=an$(i)+v$:an$(i)=left$(an$(i),38):nexti
1019 :
1020 rem *** the quiz
1021 :
1030 i=0:rt=0:wr=0:sk=0:t=0
1040 i=i+1:ifi>nqthen3010
1050 gosub130:gosub140:poke781,5:poke782,10:syss:printi;"[157]."
1055 ifi>13then1065
1060 onigoto1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220,1230
1065 oni-13goto1240,1250,1260,1270,1280,1290,1300,1310
1110 v=9:a$="man":gosub110:v=10:a$="board":gosub110:goto2010
1120 v=9:a$="stand":gosub110:v=10:a$="[201]":gosub110:goto2010
1130 v=9:a$="[210]/[197]/[193]/[196]/[201]/[206]/[199]":gosub110:goto2010
1140 v=9:a$="[204][197] ":gosub110:v=10:a$="[214][197][204]":gosub110:goto2010
1150 v=7:a$="ground":gosub110:a$="feet"
1152 fork=1to6:v=v+1:gosub110:next:goto2010
1160 v=9:a$="wear":gosub110:v=10:a$="long":gosub110:goto2010
1170 v=7:a$="[210] ":gosub110:v=8:a$="[210][207][193][196][211]":gosub110:v=9:a$="[193] ":gosub110
1175 v=10:a$="[196] ":gosub110:v=11:a$="[211] ":gosub110:goto2010
1180 v=7:a$="[212]":gosub110:v=8:a$="[207]":gosub110:v=9:a$="[215]":gosub110
1185 v=10:a$="[206]":gosub110:goto2010
1190 v=7:a$="[195][217][195][204][197]":fork=1to3:v=v+1:gosub110:nextk:goto2010
1200 v=8:a$="0":gosub110:v=9:a$="[205].[196].":gosub110:v=10:a$="[208][200].[196]":gosub110
1205 v=11:a$="[194].[211].":gosub110:goto2010
1210 v=9:a$="[203][206][197][197]":gosub110:v=10:a$="[204][201][199][200][212][211]":gosub110:goto2010
1220 v=5:a$="[195][200][193][201][210]":gosub110:goto2010
1230 v=9:a$="[196][201][195][197]":fork=1to2:v=v+1:gosub110:nextk:goto2010
1240 v=7:a$="[212]":gosub110:v=v+1:a$="[207]":gosub110:v=v+1:a$="[213]":gosub110
1245 v=v+1:a$="[195]":gosub110:v=v+1:a$="[200]":gosub110:goto2010
1250 v=9:a$="[205][201][206][196]":gosub110:v=v+1:a$="[205][193][212][212][197][210]":gosub110:goto2010
1260 v=9:a$="[200][197]'[211]/[200][201][205][211][197][204][198]":gosub110:goto2010
1270 v=9:a$="[197][195][206][193][204][199]":gosub110:goto2010
1280 v=9:a$="[196][197][193][212][200]/[204][201][198][197]":gosub110:goto2010
1290 v=7:a$="[199].[201].":gosub110:v=v+1:a$="[195][195][195][195][195][195]":gosub110:v=v+1:a$="[195][195][195][195]":gosub110
1295 v=v+1:a$="[195][195]":gosub110:goto2010
1300 v=9:a$="[164][164][208][210][207][199][210][193][205]":gosub110:goto2010
1310 v=6:a$=" [202]":gosub110:v=v+1:a$="[217][207][213] [205][197]":gosub110:a$=" [213]":gosub110
1312 v=v+1:a$=" [211]":gosub110
1315 v=v+1:a$=" [212]":gosub110
1999 :
2000 rem *** get response
2001 :
2010 poke781,18:poke782,1:syss:print"[210]emember, just think of the answer.":print
2020 printtab(14)"[193] = [193]nswer":printtab(14)"[211] = [211]kip"
2025 printtab(14)"[209] = [209]uit"
2027 getr$:ifr$=""then2027
2030 ifr$="[209]"orr$="q"then3010
2040 ifr$="[211]"orr$="s"thensk=sk+1:goto1040
2050 ifr$<>"a"andr$<>"[193]"then2027
2060 print"[145][145][145][145][145][193][206][211][215][197][210]:[146] "
2065 printan$(i)
2066 print" "
2070 print"[196]id you get it right? (y/n) ";
2072 print" "
2075 getr$:ifr$=""then2075
2080 ifr$="y"orr$="[217]"thenrt=rt+1:goto1040
2090 ifr$<>"n"andr$<>"[206]"then2075
2100 wr=wr+1:goto1040
2999 :
3000 rem *** score
3001 :
3010 gosub130:v=4:a$="[200]ere's your score":gosub110
3020 poke781,7:poke782,14:syss:print"[210]ight ";:ifrt<10thenprint" ";
3030 printrt:printtab(14)"[215]rong ";:ifwr<10thenprint"[160]";
3040 printwr:printtab(12)"[211]hipped ";:ifsk<10thenprint"[160]";
3050 printsk:printtab(22)"---":printtab(14)"[212]otal ";:t=rt+wr+sk:ift<10thenprint
3060 printt
3999 :
4000 rem *** quit now?
4001 :
4010 poke781,20:poke782,5:syss:print"[215]ant to do it again?[160](y/n) ";
4015 getr$:ifr$=""then4015
4016 ifr$="y"orr$="[217]"goto1030
4020 ifr$<>"n"andr$<>"[206]"thenpoke53280,rnd(1)*15:goto4015
4029 :
4030 goto 63000:rem end
4999 :
5000 rem *** answer data
5001 :
5010 data"[205][193][206] [207][214][197][210][194][207][193][210][196]","[201] [213][206][196][197][210][211][212][193][206][196]","[210][197][193][196][201][206][199] [194][197][212][215][197][197][206] [212][200][197] [204][201][206][197][211]","[211][208][204][201][212] [204][197][214][197][204]"
5020 data"[211][201][216] [198][197][197][212] [213][206][196][197][210] [199][210][207][213][206][196]","[204][207][206][199] [213][206][196][197][210][215][197][193][210]","[195][210][207][211][211][210][207][193][196][211]","[196][207][215][206][212][207][215][206]"
5030 data"[212][210][201][195][217][195][204][197]","[212][200][210][197][197] [196][197][199][210][197][197][211] [194][197][204][207][215] [218][197][210][207]","[206][197][207][206] [204][201][199][200][212][211]","[200][201][199][200][160][195][200][193][201][210]"
5040 data"[208][193][210][193][196][201][211][197]","[212][207][213][195][200][196][207][215][206]","[205][201][206][196][160][207][214][197][210][160][205][193][212][212][197][210]","[200][197]'[211] [194][197][211][201][196][197] [200][201][205][211][197][204][198]"
5050 data"[194][193][195][203][215][193][210][196][211] [199][204][193][206][195][197]","[204][201][198][197] [193][198][212][197][210] [196][197][193][212][200]","[199].[201]. [207][214][197][210][211][197][193][211]","[211][208][193][195][197] [208][210][207][199][210][193][205]"
5060 data"[202][213][211][212] [194][197][212][215][197][197][206] [217][207][213] [193][206][196] [205][197]"
60000 t$="